Replacement Sheet 


1000 


1002 


2v 


Write eol tab tab "eTestResult CTestProxy<" $interface_type ">::" @id "HRESULT 
JirExpected, OUT H RESULTS _hrActual" 


1004 


2v 


Select dclParam 


1006 


Write "," ©allocation-context space @type space @id 



1008 

Additional dclParam? 


1010 


write ")"eol 

tab tab "{" eol 

tab tab tab "const ASCII::CH szlnterfaceName[] = V" $interface_type T;" eol 

tab tab tab "const ASCII::CH szMethodName[] = V" @id "\";" eol 

tab tab tab "HRESULT hr, hrExpected(_hrExpected);" eol 

tab tab tab "bool fExpecting Failure = FAILED(_hrExpected);" eol 

tab tab tab "eTestResult tr=trPass;" eol 

eol 


No 


1012 

'" Is there at least 
one <dclParam> where ©allocation- 
context = "IN"? 


1014 

Yes^« 




Select <dclParam> where ©allocation-context = 

"IN" 

) 

1016^ 





Write tab tab tab "CINParamSentinalPtr plNParam_" 
CreatelNParamSentinel(" @id ");" eol 

@id " = 




Yes 


25/1 


